library(e1071)



lab=read.csv("trainLabels.csv")

col=read.csv("featurefiles/avgcol", header=FALSE)
scol=col[sort.list(col[,1]),]

d=data.frame(lab=lab[1:50000,], red=scol$V3, green=scol$V4, blue=scol$V5)

linear = fit=svm(lab.label ~ red + green + blue, data=d,kernel="linear",cross=10)

radial = fit=svm(lab.label ~ red + green + blue, data=d,kernel="radial basis",cross=10)